﻿Public Class frmFullscreen2

    Private Sub btnExitFS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExitFS.Click, MyBase.DoubleClick
        Me.Close()
    End Sub

    Private Sub frmFullscreen2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Panel1.Hide()
    End Sub

    Private Sub frmFullscreen2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        Dim mousePos As Point = Control.MousePosition
        Label1.Text = mousePos.ToString
        Panel1.Show()
    End Sub
End Class